home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok08 / printersupport2.0 / printersupporttest.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  47 lines
  1. (*********************************************************************
  2.  *                                                                   *
  3.  *  :Program.    PrinterSupportTest.mod                              *
  4.  *  :Author.     Michael Frieß                                       *
  5.  *  :Address.    Kernerstr. 22a                                      *
  6.  *  :Address.    7000 Stuttgart 1                                    *
  7.  *  :shortcut.   [mif]                                               *
  8.  *  :Version.    2.0                                                 *
  9.  *  :Date.       18.09.88                                            *
  10.  *  :Copyright.  PD                                                  *
  11.  *  :Language.   Modula-II                                           *
  12.  *  :Translator. M2Amiga                                             *
  13.  *  :Contents.   Test für PrinterSupport V2.0                        *
  14.  *  :Imports.    PrinterSupport V2.0                                 *
  15.  *                                                                   *
  16.  *********************************************************************)
  17.  
  18. MODULE PrinterSupportTest;
  19.  
  20. FROM Terminal IMPORT WriteLn, WriteString;
  21. FROM ASCII IMPORT eol;
  22. FROM Printer IMPORT sgr4, sgr24;
  23. FROM PrinterSupport IMPORT OpenPrinter, PrintString, PrintRaw,
  24.      PrintCommand, PrintChar;
  25.  
  26. BEGIN
  27.   WriteString ("DruckerTest"); WriteLn;
  28.   OpenPrinter;
  29.   WriteString ("Drucker bereitgestellt"); WriteLn;
  30.   PrintString ("Alle meine Entchen sind schon da.(String)");
  31.   PrintChar (eol);
  32.   WriteString ("Alle meine Entchen sind schon da.");
  33.   WriteLn;
  34.   PrintCommand (sgr4, 0,0,0,0);
  35.   WriteString ("Unterstreichen ein "); WriteLn;
  36.   PrintRaw ("Alle meine Entchen sind schon da.(Raw)");
  37.   PrintChar (eol);
  38.   PrintString ("Alle meine Entchen sind schon da.(String)");
  39.   PrintCommand (sgr24, 0,0,0,0);
  40.   WriteString ("Unterstreichen aus "); WriteLn;
  41.   PrintChar (eol);
  42.   PrintRaw ("Alle meine Entchen sind schon da.(Raw)");
  43.   PrintChar (eol);
  44.   WriteString("ClosePrinter wird automatisch ausgeführt.");
  45.   WriteLn
  46. END PrinterSupportTest.
  47.